home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / FPDIZ10.lha / PFiles / FPDIZ / FPDIZFIX.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-07  |  2KB  |  55 lines
  1. /********** Automaticly generated header, don't edit ************************
  2.  *
  3.  * PROGRAM:       FPDIZFIX.rexx
  4.  *
  5.  * PURPOSE:       Copies the contents of the Default Editor Getuser, to an
  6.  *                unused Getuser location, which is used by FPDIZ.
  7.  *
  8.  * DATE:          07 Apr 95                  
  9.  *
  10.  * TIME:          15:17:18                  
  11.  *
  12.  * VERSION:       1
  13.  * REVISION:      0
  14.  * SUBREVISION:   0
  15.  *
  16.  * LOG:
  17.  * 
  18.  *  07 Apr 95 1st Release Version.
  19.  *
  20.  * CNET VERSION: 3.05c
  21.  * 
  22.  ***************************************************************************/
  23.  
  24. /* revision string for the version command. */
  25. ver="$VER: FPDIZFIX 1.0 (07.04.95) by PMK"
  26. parse var ver 7 p!' 'v!' ('d!') by 'a!'00'x
  27.  
  28. options results;signal on error;signal on syntax;signal on ioerr
  29. if ~show('l','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then exit
  30.  
  31. bbsn=']   Flux Point File_Id.DIZ "Editor Fixer"   ['
  32. idnt=copies(' ',(80-length(bbsn))%2);bbsn=idnt'u1c7'copies(' ',length(bbsn))'u0n1'idnt'u1z4'bbsn'u0c7z0n2c5       'p!' v'v!' (C) 19'right(d!,2)' by 'a!' - Flux Point Amiga BBS  +45 3526 2527n2'
  33. transmit 'f1'bbsn'c7'
  34.  
  35. prompt 1 noyes 'n1Copy Editor info to FPDIZ getuser [c2Noq1]? '
  36. if result='Yes' then do
  37.     prompt 1 noyes 'n1Are you Sure [c2Noq1]? '
  38.     if result='Yes' then do
  39.         transmit 'n1'
  40.         getuser 2400088;do a=1 to result
  41.             transmit "Fixing editor for user#:c2 "a"^1"
  42.             loadscratch a
  43.             getscratch 1100645;setobject result; putscratch 1100451
  44.             setobject 0; putscratch 1100450
  45.             savescratch a
  46.         end
  47.     transmit 'q1Done!'
  48.     end
  49. end
  50. exit
  51.  
  52. SYNTAX:;ERROR:;IOERR:;er='Error Code 'rc' ('errortext(rc)') in line 'sigl' of "'fpat||fprg'"'
  53. transmit ':0'er;if length(er)>46 then do;er1=left(er,46);er=substr(er,47);logentry er1;end
  54. logentry er;bufferflush;exit
  55.